program erro_test;
{hello}
var
    i : integer;
    j : real;
    a : array[1..3] of integer;
    i : integer;
function  f(x:integer):integer;
    begin
        f:=x;
    end;
function  f(x:integer):integer;
    begin
        f:=x;
    end;
procedure p(var x:integer);
    begin
        x:=x+1;
    end;
procedure p(var x:integer);
    begin
        x:=x+1;
    end;
begin
    i := 0;
    j := 1.0;
    k := 2;
    i := func(i);
    i := f(i,j);
    j := f(j);
    i[2] := 2;
    a[2.3] := 2;
    i := j;
    i := i+1.5;
end
.